home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 72
/
64er_Magazin_Sonderheft_72_19xx_Markt__Technik_de_Side_A.d64
/
text_graf. fx-80
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
237b
|
11 lines
10 rem --- druck einer sinuskurve ---
20 rem --- und text ---
30 open1,4
40 print#1,"das ist ";
50 print#1,chr$(27);"*";chr$(0);chr$(8);chr$(0);
60 a$=chr$(255):fori=1to6:a$=a$+chr$(129):nexti:a$=a$+chr$(255)
70 print#1,a$;
80 print#1," ein beispiel"
90 print#1
100 close1